home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / CRED330 / CREDITS.PPD < prev    next >
Text File  |  1995-11-15  |  54KB  |  1,590 lines
  1. ;------------------------------------------------------------------------------
  2. ;PCBoard Programming Language Decompiler 3.00  (C)1994-95 Chicken / Tools4Fools
  3. ;------------------------------------------------------------------------------
  4. ;
  5. ;PCBoard Programming Language Executable 3.01 detected.
  6. ;
  7. ;Source Code:
  8. ;------------------------------------------------------------------------------
  9.  
  10.     STRING     VAR001
  11.     STRING     VAR002
  12.     STRING     VAR003
  13.     STRING     VAR004
  14.     STRING     VAR005
  15.     STRING     VAR006
  16.     STRING     VAR007
  17.     STRING     VAR008
  18.     STRING     VAR009
  19.     STRING     VAR010
  20.     STRING     VAR011
  21.     STRING     VAR012
  22.     STRING     VAR013
  23.     STRING     VAR014
  24.     STRING     VAR015
  25.     STRING     VAR016
  26.     STRING     VAR017
  27.     STRING     VAR018
  28.     STRING     VAR019(99) 
  29.     STRING     VAR020
  30.     STRING     VAR021
  31.     STRING     VAR022
  32.     STRING     VAR023
  33.     STRING     VAR024
  34.     STRING     VAR025
  35.     STRING     VAR026
  36.     STRING     VAR027
  37.     STRING     VAR028
  38.     STRING     VAR029
  39.     STRING     VAR030
  40.     STRING     VAR031
  41.     STRING     VAR032
  42.     STRING     VAR033
  43.     STRING     VAR034
  44.     STRING     VAR035
  45.     STRING     VAR036
  46.     STRING     VAR037
  47.     STRING     VAR038
  48.     STRING     VAR039
  49.     STRING     VAR040
  50.     STRING     VAR041
  51.     STRING     VAR042
  52.     STRING     VAR043
  53.     STRING     VAR044
  54.     STRING     VAR045
  55.     STRING     VAR046
  56.     STRING     VAR047
  57.     STRING     VAR048
  58.     STRING     VAR049
  59.     STRING     VAR050
  60.     STRING     VAR051
  61.     STRING     VAR052
  62.     STRING     VAR053
  63.     STRING     VAR054
  64.     INTEGER    VAR055(9) 
  65.     INTEGER    VAR056(9) 
  66.     INTEGER    VAR057(9) 
  67.     INTEGER    VAR058
  68.     INTEGER    VAR059
  69.     INTEGER    VAR060
  70.     INTEGER    VAR061
  71.     INTEGER    VAR062
  72.     INTEGER    VAR063
  73.     MONEY      VAR064
  74.     MONEY      VAR065
  75.     MONEY      VAR066(10) 
  76.     MONEY      VAR067
  77.     REAL       VAR068
  78.     REAL       VAR069
  79.     REAL       VAR070
  80.     REAL       VAR071
  81.     REAL       VAR072
  82.     REAL       VAR073(10) 
  83.     REAL       VAR074
  84.     REAL       VAR075
  85.     INTEGER    VAR076
  86.     INTEGER    VAR077
  87.     INTEGER    VAR078
  88.     INTEGER    VAR079
  89.     INTEGER    VAR080
  90.     INTEGER    VAR081
  91.     INTEGER    VAR082
  92.     INTEGER    VAR083
  93.     INTEGER    VAR084
  94.     INTEGER    VAR085
  95.     INTEGER    VAR086
  96.     INTEGER    VAR087
  97.     INTEGER    VAR088
  98.     INTEGER    VAR089(10) 
  99.     INTEGER    VAR090
  100.     INTEGER    VAR091
  101.     INTEGER    VAR092(9) 
  102.     INTEGER    VAR093
  103.     INTEGER    VAR094
  104.     INTEGER    VAR095
  105.     INTEGER    VAR096
  106.     INTEGER    VAR097
  107.     DATE       VAR098
  108.     DATE       VAR099
  109.     DATE       VAR100
  110.     STRING     VAR101
  111.     STRING     VAR102
  112.     STRING     VAR103
  113.     INTEGER    VAR104
  114.     INTEGER    VAR105
  115.  
  116. ;------------------------------------------------------------------------------
  117.  
  118.     LET VAR017="3.30"
  119.     LET VAR051="N"
  120.     LET VAR018=LANGEXT()
  121.     IF (!(VAR018="")) GOTO LABEL000
  122.     LET VAR018=".ENG"
  123.  
  124. :LABEL000
  125.     FAPPEND 7,PPEPATH()+"credits.log",O_RW,S_DN
  126.     FPUT 7,U_NAME(),","
  127.     LET VAR079=READLINE(PCBDAT(),16)
  128.     LET VAR076=READLINE(PCBDAT(),273)
  129.     LET VAR077=READLINE(PCBDAT(),274)
  130.     LET VAR078=READLINE(PCBDAT(),275)
  131.     IF (!(VAR076=0)) GOTO LABEL001
  132.     PRINTLN 
  133.     PRINTLN "     @X0BSorry@X0F, but you can't run this ppe without the @X0Aaccounting PSA@X07"
  134.     PRINTLN "  @X0F     installed and the @X0Eaccounting feature enabled @X0Fin @X0CPCBSetup.@X07   "
  135.     PRINTLN 
  136.     PRINTLN 
  137.     GOTO LABEL156
  138.  
  139. :LABEL001
  140.     IF (!(VAR077=0)) GOTO LABEL002
  141.     LET VAR020="Credits"
  142.     GOTO LABEL003
  143.  
  144. :LABEL002
  145.     LET VAR020="Currency"
  146.  
  147. :LABEL003
  148.     LOG U_NAME()+" ran the Credit.ppe at "+STRING(TIME())+" on "+STRING(DATE()),0
  149.     GETUSER 
  150.     GETTOKEN VAR027
  151.     IF (VAR027="TEST") LET VAR051="Y"
  152.     IF ((VAR027="CONFIG")&(U_SEC>=SYSOPSEC())) GOSUB LABEL075
  153.     IF (!(VAR027="TAX")) GOTO LABEL006
  154.     GOSUB LABEL151
  155.     LET VAR081=1
  156.     FOPEN 3,PPEPATH()+"credlang"+VAR018,O_RW,S_DN
  157.  
  158. :LABEL004
  159.     IF (!(!FERR(3))) GOTO LABEL005
  160.     FGET 3,VAR019(VAR081)
  161.     IF (VAR019(VAR081)="") GOTO LABEL005
  162.     LET VAR081=VAR081+1
  163.     GOTO LABEL004
  164.  
  165. :LABEL005
  166.     LET VAR081=1
  167.     FCLOSE 3
  168.     LET VAR081=2
  169.     LET VAR068=""
  170.     LET VAR072=""
  171.     LET VAR066(VAR081)=""
  172.     INPUTSTR " What is the tax rate (C/R = 8.2 %) ",VAR068,14,5,"0123456789.",2+4+256
  173.     IF (VAR068="") LET VAR068="8.2"
  174.     INPUTSTR " What is the level amount (C/R = $99.00) ",VAR066(VAR081),14,7,"01234566789.",2+4+256
  175.     IF (VAR066(VAR081)="") LET VAR066(VAR081)="99.00"
  176.     INPUTSTR " What is the handling charge (C/R = 0) ",VAR072,14,7,"01234566789.",2+4+256
  177.     IF (VAR072="") LET VAR072="0"
  178.     GOTO LABEL055
  179.  
  180. :LABEL006
  181.     IF (!EXIST(PPEPATH()+"credits.cfg")) GOTO LABEL009
  182.     GOSUB LABEL151
  183.     IF (!((VAR047<>VAR017)&(U_SEC>=VAR079))) GOTO LABEL007
  184.     PRINTLN "                     @X0CWrong @X0Fconfiguation file - must run @X0Econfig editor@X07"
  185.     WAIT 
  186.     GOTO LABEL075
  187.  
  188. :LABEL007
  189.     IF (!((VAR047<>VAR017)&(U_SEC<>VAR079))) GOTO LABEL008
  190.     PRINTLN "                  @X0FConfiguration file @X0Eerror, @X0Fplease tell @X0Bsysop@X07",VAR019(44)
  191.     GOTO LABEL156
  192.  
  193. :LABEL008
  194.     GOTO LABEL074
  195.  
  196. :LABEL009
  197.     IF ((!EXIST(PPEPATH()+"credits.cfg"))) GOTO LABEL074
  198.     PRINTLN 
  199.     PRINTLN "                  ",VAR019(43)
  200.     IF (!(U_SEC=VAR079)) GOTO LABEL010
  201.     GOSUB LABEL075
  202.     GOTO LABEL011
  203.  
  204. :LABEL010
  205.     IF (!(U_SEC<>VAR079)) GOTO LABEL011
  206.     PRINTLN 
  207.     PRINTLN "                       ",VAR019(44)
  208.  
  209. :LABEL011
  210.     LOG "Credits.ppe config file doest exist",0
  211.     GOTO LABEL156
  212.  
  213. ;:LABEL074
  214. ;    FAPPEND 7,PPEPATH()+"credits.log",O_RW,S_DN
  215. ;    GOSUB LABEL065
  216. ;    GOSUB LABEL066
  217. ;    PRINTLN " ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
  218. ;    PRINTLN " ▓▓"+"@POS:78@▓▓"
  219. ;    PRINTLN " ▓▓@X0F      This PPE is @X0EUNREGISTERED @X0F- please @X0CRegister @X0F- @X0EUNREGISTERED          @X07 ▓▓"
  220. ;    PRINTLN " ▓▓"+"@POS:78@▓▓"
  221. ;    PRINTLN " ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓"
  222. ;    PRINTLN 
  223. ;    DELAY 70
  224.  
  225. :LABEL013
  226.     IF (!EXIST(PPEPATH()+"warning"+VAR018)) GOTO LABEL014
  227.     DISPFILE PPEPATH()+"warning"+VAR018,""
  228.     PRINT "                          "
  229.     WAIT 
  230.  
  231. :LABEL014
  232.     LET VAR004=PPEPATH()+"credinf"+VAR018
  233.     IF (!EXIST(VAR004)) GOTO LABEL015
  234.     DISPFILE VAR004,1+2
  235.     NEWLINES 3
  236.  
  237. :LABEL015
  238.     FCLOSE 1
  239.     LET VAR081=1
  240.     FOPEN 3,PPEPATH()+"credlang"+VAR018,O_RW,S_DN
  241.  
  242. :LABEL016
  243.     IF (!(!FERR(3))) GOTO LABEL017
  244.     FGET 3,VAR019(VAR081)
  245.     IF (VAR019(VAR081)="") GOTO LABEL017
  246.     LET VAR081=VAR081+1
  247.     GOTO LABEL016
  248.  
  249. :LABEL017
  250.     FCLOSE 3
  251.  
  252. :LABEL018
  253.     IF (VAR051="Y") PRINTLN "                 @X0B                Test Mode@X07"
  254.     NEWLINES 1
  255.     PRINTLN "@POS:22@",VAR019(31)
  256.     PRINTLN "@POS:22@",VAR019(32)
  257.     PRINTLN "@POS:22@",VAR019(33)
  258.     PRINTLN "@POS:22@",VAR019(34)
  259.     PRINTLN "@POS:22@",VAR019(35)
  260.     PRINTLN "@POS:22@",VAR019(36)
  261.     PRINTLN "@POS:22@",VAR019(37)
  262.     PRINTLN "@POS:22@",VAR019(38)
  263.     PRINTLN "@POS:22@",VAR019(39)
  264.     PRINTLN "@POS:22@",VAR019(40)
  265.     PRINTLN 
  266.     INPUTSTR "@POS:20@"+VAR019(41)+" ",VAR022,14,1,MASK_ASCII(),2+4+256+8
  267.     IF (!(VAR022="Q")) GOTO LABEL019
  268.     GOTO LABEL156
  269.  
  270. :LABEL019
  271.     IF (!(VAR022="1")) GOTO LABEL020
  272.     DISPFILE PPEPATH()+"MAINMNU1"+VAR018,""
  273.     WAIT 
  274.     GOTO LABEL018
  275.  
  276. :LABEL020
  277.     IF (!(VAR022="3")) GOTO LABEL021
  278.     GOSUB LABEL152
  279.     GOTO LABEL018
  280.  
  281. :LABEL021
  282.     IF (!(VAR022="4")) GOTO LABEL022
  283.     LET VAR025="cr"+STRING(U_RECNUM(U_NAME()))+".inv"
  284.     DISPFILE VAR024+VAR025,""
  285.     GOTO LABEL018
  286.  
  287. :LABEL022
  288.     IF (!(VAR022="5")) GOTO LABEL023
  289.     SHELL 1,VAR063,"pkzip -a subscib ","subscribe."+VAR018
  290.     LET VAR025="subscrib.zip"
  291.     LET VAR024=PPEPATH()
  292.     GOSUB LABEL153
  293.     DELETE PPEPATH()+"subscrib.zip"
  294.     GOTO LABEL018
  295.  
  296. :LABEL023
  297.     FAPPEND 1,PPEPATH()+"credits.chg",O_RW,S_DN
  298.  
  299. :LABEL024
  300.     NEWLINES 2
  301.     INPUTSTR "@X0F  "+VAR019(8),VAR002,13,25,MASK_ASCII(),4+2+8+256
  302.     IF (VAR002="") GOTO LABEL015
  303.     IF (VAR002="Q") GOTO LABEL156
  304.     PRINTLN 
  305.     PRINTLN "@X0F  "+VAR019(9)
  306.     INPUTSTR "  "+VAR019(10),VAR001,11,20,"Qq0123456789",2+4+256+128+8
  307.     PRINTLN 
  308.     PRINTLN 
  309.     LET VAR037=VAR001
  310.     IF (!(VAR001="Q")) GOTO LABEL025
  311.     FCLOSE 1
  312.     GOTO LABEL156
  313.  
  314. :LABEL025
  315.     IF (!VALCC(VAR001)) GOTO LABEL035
  316.     FCLOSE 5
  317.     FOPEN 5,PPEPATH()+"credits.tcn",O_RW,S_DN
  318.     PRINTLN "             ",VAR019(86)
  319.     NEWLINES 5
  320.     LET VAR105=1
  321.     LET VAR054=LEN(STRIPATX(VAR019(87)))
  322.     LET VAR094=LEN(VAR019(87))
  323.  
  324. :LABEL026
  325.     IF (!(!FERR(5))) GOTO LABEL032
  326.     FGET 5,VAR033
  327.     IF (!(VAR105>69)) GOTO LABEL027
  328.     LET VAR105=1
  329.  
  330. :LABEL027
  331.     PRINT SPACE(80)
  332.     ANSIPOS VAR105,20
  333.     PRINT VAR019(87)
  334.     ANSIPOS 1,20
  335.     PRINT CHR(8)+CHR(8)+CHR(8)+CHR(8)+CHR(8)+CHR(8)+CHR(8)
  336.     LET VAR105=VAR105+1
  337.     IF (!(VAR033=VAR001)) GOTO LABEL028
  338.     PRINTLN "             ",VAR019(45)
  339.     GOTO LABEL024
  340.  
  341. :LABEL028
  342.     LET VAR061=LEN(VAR033)
  343.     LET VAR083=1
  344.  
  345. :LABEL029
  346.     IF (!(((1<0)&(VAR083>=VAR061))|((1>=0)&(VAR083<=VAR061)))) GOTO LABEL031
  347.     LET VAR034=MID(VAR033,VAR083,1)
  348.     IF (!(VAR034="*")) GOTO LABEL030
  349.     LET VAR061=VAR061-1
  350.     LET VAR035=LEFT(VAR033,VAR081)
  351.     LET VAR036=LEFT(VAR001,VAR081)
  352.     IF (!(VAR036=VAR035)) GOTO LABEL030
  353.     PRINTLN 
  354.     PRINTLN "        ",VAR019(46)
  355.     GOTO LABEL024
  356.  
  357. :LABEL030
  358.     LET VAR083=VAR083+1
  359.     GOTO LABEL029
  360.  
  361. :LABEL031
  362.     GOTO LABEL026
  363.  
  364. :LABEL032
  365.     PRINTLN SPACE(80)
  366.     IF (!((VAR045="N")&(CCTYPE(VAR001)="AMERICAN EXPRESS"))) GOTO LABEL033
  367.     PRINTLN "                             @X0ENo @X0FAmerican Express"
  368.     GOTO LABEL024
  369.  
  370. :LABEL033
  371.     IF (!((VAR046="N")&(CCTYPE(VAR001)="DISCOVER"))) GOTO LABEL034
  372.     PRINTLN "                                 @X0ENo @X0FDiscover"
  373.     GOTO LABEL024
  374.  
  375. :LABEL034
  376.     PRINTLN 
  377.     PRINTLN "                     "+STRIP(LEFT(CCTYPE(VAR001),20)," "),"@X0A -@X07 ",FMTCC(VAR001)
  378.     GOTO LABEL036
  379.  
  380. :LABEL035
  381.     PRINTLN 
  382.     PRINTLN "   @X0F"+VAR019(11)
  383.     GOTO LABEL015
  384.  
  385. :LABEL036
  386.     PRINTLN 
  387.     INPUTSTR "                "+VAR019(12),VAR049,12,5,"0123456789-/",2+4+64+256
  388.     LET VAR103=DATE()
  389.     LET VAR104=INSTR(VAR049,"/")
  390.     LET VAR101=LEFT(VAR049,(VAR104-1))
  391.     IF (LEFT(VAR101,1)=0) LET VAR101=RIGHT(VAR101,1)
  392.     LET VAR100=LEN(VAR049)
  393.     LET VAR102=STRING(RIGHT(VAR049,2))
  394.     IF (!(VAR102<STRING(RIGHT(YEAR(DATE()),2)))) GOTO LABEL037
  395.     PRINTLN "   ",VAR019(85)
  396.     GOTO LABEL036
  397.  
  398. :LABEL037
  399.     IF (!((VAR101<STRING(MONTH(DATE())))&(VAR102<=STRING(RIGHT(YEAR(DATE()),2))))) GOTO LABEL038
  400.     PRINTLN "   ",VAR019(85)
  401.     GOTO LABEL036
  402.  
  403. :LABEL038
  404.     IF (!((VAR101>=STRING(MONTH(DATE())))&(VAR102<=STRING(RIGHT(YEAR(DATE()),2))))) GOTO LABEL039
  405.     GOTO LABEL040
  406.  
  407. :LABEL039
  408.     IF (VAR049="") GOTO LABEL036
  409.  
  410. :LABEL040
  411.     PRINTLN 
  412.     IF (PSA(3)&(U_ADDR(0)<>"")) LET VAR043=U_ADDR(0)
  413.     INPUTSTR "     "+VAR019(62)+" ",VAR043,14,45,MASK_ASCII(),2+4+256
  414.     IF (!(VAR043="")) GOTO LABEL041
  415.     PRINTLN "          "+VAR019(63)
  416.     GOTO LABEL040
  417.  
  418. :LABEL041
  419.     PRINTLN 
  420.     IF (PSA(3)&(U_ADDR(2)<>"")) LET VAR040=U_ADDR(2)
  421.     INPUTSTR "     "+VAR019(64)+" ",VAR040,14,35,MASK_ASCII(),2+4+256
  422.     IF (VAR040="") GOTO LABEL041
  423.  
  424. :LABEL042
  425.     PRINTLN 
  426.     IF (PSA(3)&(U_ADDR(3)<>"")) LET VAR041=U_ADDR(3)
  427.     INPUTSTR "     "+VAR019(65)+" ",VAR041,14,2,MASK_ASCII(),2+4+256
  428.     IF (VAR041="") GOTO LABEL042
  429.  
  430. :LABEL043
  431.     PRINTLN 
  432.     IF (PSA(3)&(U_ADDR(4)<>"")) LET VAR042=U_ADDR(4)
  433.     INPUTSTR "     "+VAR019(66)+" ",VAR042,14,10,MASK_ASCII(),2+4+256
  434.     IF (VAR042="") GOTO LABEL043
  435.  
  436. :LABEL044
  437.     PRINTLN 
  438.     IF (PSA(3)&(U_ADDR(5)<>"")) LET VAR050=U_ADDR(5)
  439.     INPUTSTR "     "+VAR019(67)+" ",VAR050,14,10,MASK_ASCII(),2+4+256
  440.     IF (VAR050="") GOTO LABEL044
  441.  
  442. :LABEL045
  443.     PRINTLN 
  444.     IF (U_HVPHONE<>"") LET VAR038=U_HVPHONE
  445.     INPUTSTR "     "+VAR019(68)+" ",VAR038,14,20,"0123456789-",2+4+256
  446.     IF (VAR038="") GOTO LABEL045
  447.  
  448. :LABEL046
  449.     PRINTLN 
  450.     IF (U_BDPHONE<>"") LET VAR039=U_BDPHONE
  451.     INPUTSTR "     "+VAR019(69)+"@X07 ",VAR039,14,20,"0123456789-",2+4+256
  452.     IF (VAR039="") GOTO LABEL046
  453.     NEWLINES 3
  454.  
  455. :LABEL047
  456.     PRINTLN "                         ",VAR019(1)
  457.     PRINTLN "                         ",VAR019(2)
  458.     PRINTLN "                         ",VAR019(3)
  459.     PRINTLN 
  460.     IF (!(VAR010="Y")) GOTO LABEL048
  461.     LET VAR080="1"
  462.  
  463. :LABEL048
  464.     LET VAR081=1
  465.     LET VAR073(VAR081)=VAR066(VAR081)
  466.     PRINTLN "   @X09╔══════════════════════════════════════════════════════════════════════╗@X07"
  467.     LET VAR081=1
  468.  
  469. :LABEL049
  470.     IF (!(((1<0)&(VAR081>=VAR080))|((1>=0)&(VAR081<=VAR080)))) GOTO LABEL050
  471.     PRINTLN "@X09   ║@X0F ",VAR081,"@X0E) @X0E- ",VAR089(VAR081),"@POS:16@@X0F",VAR021,"@POS:30@",VAR019(82),"@X0F ",VAR057(VAR081),"@POS:46@",VAR019(83)," @X07 ",VAR055(VAR081),"@X0C   ",VAR019(5)," @X0A ",VAR066(VAR081),"@X09@POS:75@║ @X07"
  472.     LET VAR081=VAR081+1
  473.     GOTO LABEL049
  474.  
  475. :LABEL050
  476.     PRINTLN "   @X09╚══════════════════════════════════════════════════════════════════════╝@X07"
  477.     PRINTLN 
  478.     INPUTSTR "                  "+VAR019(6)+" @X0F(@X0E1 - "+STRING(VAR080)+"@X0F) "+VAR019(7)+" @X07",VAR009,11,1,"0123456789Qq",2+4+8+256
  479.     IF (VAR009="Q") GOTO LABEL156
  480.     IF ((VAR009<1)|(VAR009>VAR080)) GOTO LABEL047
  481.     LET VAR081=VAR009
  482.     GOSUB LABEL051
  483.     GOSUB LABEL053
  484.     GOTO LABEL156
  485.  
  486. :LABEL051
  487.     PRINTLN 
  488.     PRINTLN "          @X0F    ",VAR019(13),"@X0E ",VAR009," @X0F",VAR019(14)," @X0C",VAR089(VAR081)," @X0B",VAR021,"@X0F ",VAR019(15),"@X0A ",VAR066(VAR081),"@X07"
  489.     PRINTLN 
  490.     INPUTSTR "                            "+VAR019(16)+" ",VAR008,10,1,"",2+4+8+16384
  491.     IF (VAR008="N") GOTO LABEL156
  492.     IF (!(VAR008="Y")) GOTO LABEL052
  493.  
  494. :LABEL052
  495.     RETURN 
  496.  
  497.  
  498. :LABEL053
  499.     PRINTLN 
  500.     PRINTLN 
  501.     PRINTLN "@X0F                      ",VAR019(24)," ",ACCOUNT(0),"@X07"
  502.     PRINTLN 
  503.     LET VAR003=ACCOUNT(0)+VAR089(VAR081)
  504.     IF (!(VAR032="Y")) GOTO LABEL054
  505.     GETUSER 
  506.     LET VAR060=VAR089(VAR081)
  507.     ACCOUNT START_BAL,VAR060
  508.     LET U_SEC=VAR055(VAR081)
  509.     LET VAR093=VAR056(VAR081)
  510.     ACCOUNT SEC_DROP,VAR093
  511.     LET VAR099=DATE()+VAR057(VAR081)
  512.     LET U_EXPDATE=VAR099
  513.     LET U_EXPSEC=VAR092(VAR081)
  514.     IF (VAR051="N") PUTUSER 
  515.     GOTO LABEL055
  516.  
  517. :LABEL054
  518.     PRINTLN 
  519.     PRINTLN "      ",VAR019(47)
  520.     PRINTLN 
  521.  
  522. :LABEL055
  523.     PRINTLN "                      ",VAR019(84)," ",VAR055(VAR081)
  524.     PRINTLN 
  525.     PRINTLN "@X0F                 "+VAR019(25)," ",VAR089(VAR081)," ",VAR019(26)
  526.     PRINTLN 
  527.     PRINTLN "             @X0F   ",VAR019(27)," ",ACCOUNT(0),"@X07"
  528.     PRINTLN 
  529.     PRINTLN "                ",VAR019(28)," ",STRIP(LEFT(CCTYPE(VAR001),20)," ")," ",VAR019(29),"@X0A ",VAR066(VAR081),"@X07"
  530.     LET VAR098=DATE()+VAR057(VAR081)
  531.     PRINTLN 
  532.     PRINTLN "                       ",VAR019(76)," ",VAR098
  533.     PRINTLN 
  534.     IF (!(VAR068<>"0")) GOTO LABEL056
  535.     LET VAR069=VAR068/100
  536.     LET VAR070=(VAR066(VAR081)*VAR069)/100
  537.     LET VAR095=LEN(VAR070)
  538.     LET VAR096=1
  539.     LET VAR097=INSTR(VAR070,".")
  540.     LET VAR058=VAR097+2
  541.     LET VAR059=VAR097+3
  542.     IF (!(VAR059>="5")) GOTO LABEL056
  543.     LET VAR075=".01"
  544.     LET VAR074=LEFT(VAR070,VAR058)+VAR075
  545.  
  546. :LABEL056
  547.     LET VAR065=VAR074*100+VAR075
  548.     PRINTLN "                      @X0E",VAR068,"%@X07 ",VAR019(77)," ",VAR065
  549.     PRINTLN 
  550.     LET VAR067=VAR072*100
  551.     IF (VAR072<>"0") PRINTLN "                           ",VAR019(78)," ",VAR067
  552.     PRINTLN 
  553.     LET VAR073(VAR081)=VAR066(VAR081)/100
  554.     LET VAR072=STRING(VAR072)
  555.     LET VAR071=VAR073(VAR081)+VAR074+VAR072
  556.     LET VAR097=INSTR(VAR071,".")
  557.     LET VAR095=LEN(VAR071)
  558.     LET VAR058=VAR097+2
  559.     LET VAR064=LEFT(VAR071,6)
  560.     PRINTLN "                           ",VAR019(79)," ",VAR064
  561.     PRINTLN 
  562.     IF (VAR027="TAX") END 
  563.  
  564.     FPUTLN 1,VAR019(17)," ",DATE()," at ",TIME()
  565.     LET VAR062=43-LEN(STRIPATX(VAR019(18)))
  566.     FPUTLN 1," "+VAR019(18)+SPACE(VAR062)+VAR002
  567.     LET VAR062=43-LEN(STRIPATX(VAR019(19)))
  568.     FPUTLN 1," "+VAR019(19)+SPACE(VAR062)+FMTCC(VAR001)
  569.     LET VAR062=43-LEN(STRIPATX(VAR019(20)))
  570.     FPUTLN 1," "+VAR019(20)+SPACE(VAR062),VAR049
  571.     LET VAR062=43-LEN(STRIPATX(VAR019(21)))
  572.     FPUTLN 1," "+VAR019(21)+SPACE(VAR062)+U_NAME()
  573.     LET VAR062=43-LEN(STRIPATX(VAR019(70)))
  574.     FPUTLN 1," "+VAR019(70)+SPACE(VAR062)+VAR043
  575.     LET VAR062=36-LEN(STRIPATX(VAR019(71)))+LEN(STRIPATX(VAR019(72)))
  576.     FPUTLN 1," "+VAR019(71)+" "+VAR019(72)+SPACE(VAR062)+VAR040+", "+VAR041+" ,"+VAR042
  577.     LET VAR062=43-LEN(STRIPATX(VAR019(73)))
  578.     FPUTLN 1," "+VAR019(73)+SPACE(VAR062)+U_ADDR(5)
  579.     LET VAR062=43-LEN(STRIPATX(VAR019(74)))
  580.     FPUTLN 1," "+VAR019(74)+SPACE(VAR062)+VAR038
  581.     LET VAR062=43-LEN(STRIPATX(VAR019(75)))
  582.     FPUTLN 1," "+VAR019(75)+SPACE(VAR062)+VAR039
  583.     LET VAR062=43-LEN(STRIPATX(VAR019(22)))
  584.     FPUTLN 1," "+VAR019(22)+SPACE(VAR062)+"("+VAR009+")"+"  ",STRING(VAR089(VAR081))
  585.     LET VAR062=43-LEN(STRIPATX(VAR019(23)))
  586.     FPUTLN 1," "+VAR019(23)+SPACE(VAR062)+STRING(CCTYPE(VAR001))+"  "+STRING(VAR066(VAR081))
  587.     IF (VAR068<>"0") LET VAR062=43-LEN(STRIPATX(VAR019(77)))
  588.     FPUTLN 1," "+STRIPATX(VAR019(77))+SPACE(VAR062)+STRING(VAR065)
  589.     IF (VAR072<>"0") LET VAR062=43-LEN(STRIPATX(VAR019(22)))
  590.     FPUTLN 1," "+STRIPATX(VAR019(78))+SPACE(VAR062)+STRING(VAR067)
  591.     LET VAR062=43-LEN(STRIPATX(VAR019(79)))
  592.     FPUTLN 1," "+STRIPATX(VAR019(79))+SPACE(VAR062)+STRING(VAR064)
  593.     IF (VAR051="Y") FPUTLN 1,"  TEST  TEST  TEST  TEST  TEST  TEST  TEST  TEST  "
  594.     FPUTLN 1,"**********************************************************"
  595.     FCLOSE 1
  596.     PRINTLN " "
  597.     IF (VAR048="Y") MESSAGE 0,"SYSOP",U_NAME(),"CREDITS","R",0,0,0,PPEPATH()+"credits.txt"
  598.     IF (!(CCTYPE(VAR001)="VISA")) GOTO LABEL057
  599.     FAPPEND 6,PPEPATH()+"credits.vis",O_RW,S_DN
  600.     FPUTLN 6,VAR001," ",VAR049," ",VAR064
  601.     GOTO LABEL063
  602.  
  603. :LABEL057
  604.     IF (!(CCTYPE(VAR001)="MASTERCARD")) GOTO LABEL058
  605.     FAPPEND 6,PPEPATH()+"credits.mas",O_RW,S_DN
  606.     FPUTLN 6,VAR001," ",VAR049," ",VAR064
  607.     GOTO LABEL063
  608.  
  609. :LABEL058
  610.     IF (!(CCTYPE(VAR001)="CARTE BLANCHE")) GOTO LABEL059
  611.     FAPPEND 6,PPEPATH()+"credits.car",O_RW,S_DN
  612.     FPUTLN 6,VAR001," ",VAR049," ",VAR064
  613.     GOTO LABEL063
  614.  
  615. :LABEL059
  616.     IF (!(CCTYPE(VAR001)="DISCOVER")) GOTO LABEL060
  617.     FAPPEND 6,PPEPATH()+"credits.dis",O_RW,S_DN
  618.     FPUTLN 6,VAR001," ",VAR049," ",VAR064
  619.     GOTO LABEL063
  620.  
  621. :LABEL060
  622.     IF (!(CCTYPE(VAR001)="DINERS CLUB")) GOTO LABEL061
  623.     FAPPEND 6,PPEPATH()+"credits.din",O_RW,S_DN
  624.     FPUTLN 6,VAR001," ",VAR049," ",VAR064
  625.     GOTO LABEL063
  626.  
  627. :LABEL061
  628.     IF (!(CCTYPE(VAR001)="OPTIMA")) GOTO LABEL062
  629.     FAPPEND 6,PPEPATH()+"credits.opt",O_RW,S_DN
  630.     FPUTLN 6,VAR001," ",VAR049," ",VAR064
  631.     GOTO LABEL063
  632.  
  633. :LABEL062
  634.     IF (!(CCTYPE(VAR001)="AMERICAN EXPRESS")) GOTO LABEL063
  635.     FAPPEND 6,PPEPATH()+"credits.ame",O_RW,S_DN
  636.     FPUTLN 6,VAR001," ",VAR049," ",VAR064
  637.  
  638. :LABEL063
  639.     FCLOSE 6
  640.     FAPPEND 4,VAR024+"cr"+STRING(U_RECNUM(U_NAME()))+".inv",O_RW,S_DN
  641.     LET VAR028=VAR024+"cr"+STRING(U_RECNUM(U_NAME()))+".inv"
  642.     LET VAR029=CCTYPE(VAR001)
  643.     FPUTLN 4," "
  644.     FPUTLN 4,"             ",VAR019(42)," ",VAR007
  645.     FPUTLN 4,"                             ",VAR012
  646.     FPUTLN 4," "
  647.     FPUTLN 4,"     ╔════════════════════════════════════════════════════════════════╗"
  648.     FPUTLN 4,"     ║           "+VAR019(48)+" "+STRING(DATE())+"  "+VAR019(49)+" "+STRING(TIME())+"             ║"
  649.     FPUTLN 4,"     ╚════════════════════════════════════════════════════════════════╝"
  650.     FPUTLN 4,"      "+VAR019(50)+"  "+VAR007
  651.     LET VAR062=43-LEN(STRIPATX(VAR019(70)))
  652.     FPUTLN 4,"      "+VAR019(70)+"   "+VAR052
  653.     FPUTLN 4,"      "+VAR019(71)+"      "+VAR053
  654.     FPUTLN 4,"      "+VAR019(51)+"     "+VAR016
  655.     FPUTLN 4,"     ──────────────────────────────────────────────────────────────────"
  656.     FPUTLN 4,"      "+VAR019(80)+"       "+U_NAME()
  657.     FPUTLN 4,"                        "+U_ADDR(0)
  658.     FPUTLN 4,"                       c"+U_ADDR(2)+","+U_ADDR(3)+"  "+U_ADDR(4)+"  "+U_ADDR(5)
  659.     FPUTLN 4,"     ──────────────────────────────────────────────────────────────────"
  660.     FPUTLN 4,"      ",VAR019(53),"    ",VAR029,"              ",VAR019(54),"  ",VAR049
  661.     FPUTLN 4,"      ",VAR019(55),"  ",VAR001
  662.     FPUTLN 4," "
  663.     FPUTLN 4,"      ",VAR019(56),"                   ",VAR089(VAR081)
  664.     FPUTLN 4,"      ",VAR019(81),"                    ",VAR066(VAR081)
  665.     IF (VAR068<>"0") FPUTLN 4,"      ",VAR019(77),"             ",VAR070
  666.     IF (VAR072<>"0") FPUTLN 4,"      ",VAR019(78),"                  ",VAR072
  667.     FPUTLN 4,"      ",VAR019(57),"                  ",VAR071
  668.     FPUTLN 4,"     ──────────────────────────────────────────────────────────────────"
  669.     FPUTLN 4,""
  670.     FPUTLN 4,""
  671.     FPUTLN 4,""
  672.     FPUTLN 4,""
  673.     FPUTLN 4,""
  674.     PRINTLN "          ",VAR019(30)
  675.     PRINTLN 
  676.     INPUTSTR "              @X0F"+VAR019(58),VAR031,10,1,"",2+4+8+256+16384
  677.     IF (VAR031="N") GOTO LABEL156
  678.     IF (!(VAR031="Y")) GOTO LABEL064
  679.     PRINTLN 
  680.     PRINTLN "                 "+VAR019(59)
  681.     GOSUB LABEL152
  682.  
  683. :LABEL064
  684.     PRINTLN 
  685.     PRINTLN "          ",VAR019(30)
  686.     GOTO LABEL156
  687.  
  688. :LABEL065
  689.     CLS 
  690.     PRINTLN 
  691.     PRINTLN "@POS:23@ @X0F░▒▓█ @X0ACREDITS.PPE  @X07v"+VAR017+" @X0F█▓▒░ @X07"
  692.     PRINTLN 
  693.     PRINTLN "                           ░▒▓█ by DM Soft █▓▒░"
  694.     PRINTLN 
  695.     RETURN 
  696.  
  697.  
  698. :LABEL066
  699.     LET VAR016=VAR006
  700.     LET VAR013=STRIP(VAR007," ")
  701.     IF (!(VAR005="000000")) GOTO LABEL067
  702.     LET VAR010="Y"
  703.     RETURN 
  704.  
  705.  
  706. :LABEL067
  707.     LET VAR083=1
  708.  
  709. :LABEL068
  710.     IF (!(((1<0)&(VAR083>=25))|((1>=0)&(VAR083<=25)))) GOTO LABEL069
  711.     LET VAR014=MID(VAR013,VAR083,1)
  712.     LET VAR082=ASC(VAR014)
  713.     LET VAR082=VAR082-3
  714.     LET VAR084=VAR084+VAR082+8
  715.     LET VAR083=VAR083+1
  716.     GOTO LABEL068
  717.  
  718. :LABEL069
  719.     LET VAR083=1
  720.  
  721. :LABEL070
  722.     IF (!(((1<0)&(VAR083>=25))|((1>=0)&(VAR083<=25)))) GOTO LABEL071
  723.     LET VAR014=MID(VAR016,VAR083,1)
  724.     LET VAR088=ASC(VAR014)
  725.     LET VAR088=VAR088
  726.     LET VAR085=VAR085+VAR088
  727.     LET VAR083=VAR083+1
  728.     GOTO LABEL070
  729.  
  730. :LABEL071
  731.     LET VAR015=LOWER(PPENAME())
  732.     LET VAR015=STRIP(VAR015," ")
  733.     LET VAR083=1
  734.  
  735. :LABEL072
  736.     IF (!(((1<0)&(VAR083>=8))|((1>=0)&(VAR083<=8)))) GOTO LABEL073
  737.     LET VAR014=MID(VAR015,VAR083,1)
  738.     LET VAR087=ASC(VAR014)
  739.     LET VAR087=VAR087-6
  740.     LET VAR086=VAR086+VAR087
  741.     LET VAR083=VAR083+1
  742.     GOTO LABEL072
  743.  
  744. :LABEL073
  745.     LET VAR084=VAR084+VAR085+VAR086
  746.     LET VAR084=(VAR084*LEN(STRIP(VAR013," ")))*9
  747.     IF (VAR084=VAR005) GOTO LABEL074
  748.     IF (!(VAR084<>VAR005)) GOTO LABEL074
  749.     LET VAR010="Y"
  750.     RETURN 
  751.  
  752.  
  753. :LABEL074
  754.     LET VAR011="@X0B"+VAR007+"@X0A SYSOP:@X0F "+VAR016
  755.     PRINTLN " @X0E╔════════════════════════════════════════════════════════════════════════════╗@X07"
  756.     PRINTLN " @X0E║ @POS:10@@X0FThis @X0APPE registered @X0Fto "+VAR011+"@POS:79@@X0E║@X07"
  757.     PRINTLN " @X0E║                         @X0D@X0FPhone:@X0C ",VAR012,"@X0E@POS:79@║@X07"
  758.     PRINTLN " @X0E╚════════════════════════════════════════════════════════════════════════════╝@X07"
  759.     GOTO LABEL013
  760.  
  761. :LABEL075
  762.     GOSUB LABEL151
  763.  
  764. :LABEL076
  765.     CLS 
  766.     LET VAR026=""
  767.     NEWLINES 1
  768.     PRINTLN "                  @X0BCredits.ppe v@X0F"+VAR017+" @X0EConfiguation Editor@X07 "
  769.     PRINTLN "                               Page 1 of 4"
  770.     PRINTLN 
  771.     PRINTLN " @X0E(@X0FA@X0E) @X07Bulletin Board Name....................@X0E[@X0B"+VAR007+"@POS:76@@X0E]@X07"
  772.     PRINTLN " @X0E(@X0FB@X0E) @X07Bulletin Board address.................@X0E[@X0B"+VAR052+"@POS:76@@X0E]@X07"
  773.     PRINTLN " @X0E(@X0FC@X0E) @X07Bulletin Board city, state, zip........@X0E[@X0B"+VAR053+"@POS:76@@X0E]@X07"
  774.     PRINTLN " @X0E(@X0FD@X0E) @X07Sysops full name.......................@X0E[@X0B"+VAR006+"@X0E@POS:76@]@X07"
  775.     PRINTLN " @X0E(@X0FE@X0E) @X07Phone number of your BBS...............@X0E[@X0B"+VAR012+"@X0E@POS:50@]@X07"
  776.     PRINTLN " @X0E(@X0FF@X0E)@X07 Registration number....................@X0E[@X0B"+VAR005+"@POS:52@@X0E]@X07"
  777.     PRINTLN " @X0E(@X0FG@X0E) @X07Currency, Units or Credits@X07.............@X0E[@X0B"+VAR021+"@X0E@POS:48@]@X07"
  778.     PRINTLN " @X0E(@X0FH@X0E) @X07Levels of credit access................@X0E[@X0B"+STRING(VAR080)+"@X0E@POS:48@]@X07"
  779.     PRINTLN " @X0E(@X0FI@X0E) @X07Path to invoice files..................@X0E[@X0B"+VAR024+"@X0E@POS:76@]@X07"
  780.     PRINTLN " @X0E[@X0FJ@X0E] @X07Raise Security immediately.............@X0E[@X0B",VAR032,"@X0E@POS:35@]@X07"
  781.     PRINTLN " @X0E[@X0FK@X0E] @X07Change Users Expiration date ..........@X0E[@X0B",VAR044,"@POS:35@@X0E]@X07"
  782.     PRINTLN " @X0E[@X0FL@X0E] @X07Allow American Express credit card.....@X0E[@X0B",VAR045,"@POS:35@@X0E]@X07"
  783.     PRINTLN " @X0E[@X0FM@X0E] @X07Allow Discover credit card.............@X0E[@X0B",VAR046,"@POS:35@@X0E]@X07"
  784.     PRINTLN " @X0E(@X0FN@X0E) @X07Send message to sysop after purchase...@X0E[@X0B",VAR048,"@X0E]@X07"
  785.     PRINTLN " @X0E(@X0FO@X0E) @X07Percent of sales tax (0 if no tax).....@X0E[@X0B",VAR068,"@POS:50@@X0E]@X07"
  786.     PRINTLN " @X0E(@X0FP@X0E) @X07Handling Charge (credit card surcharge)@X0E[@X0B",VAR072,"@X0E@POS:50@]@X07"
  787.     PRINTLN 
  788.     INPUTSTR "@X0F Please @X0Bchoose @X0Fa letter to @X0Echange [@X0Fe@X0EX@X0F)it,(@X0E!@X0F) to Save,@X0E +@X0F next screen@X0E]@X07",VAR026,14,1,MASK_ASCII(),4+2+8+64
  789.     IF (VAR026="!") GOTO LABEL150
  790.     IF (VAR026="") GOTO LABEL156
  791.     IF (VAR026="+") GOTO LABEL093
  792.     IF (!(VAR026="A")) GOTO LABEL077
  793.     INPUTSTR " What is the name of your BBS ",VAR007,11,30,MASK_ASCII(),2+4
  794.     GOTO LABEL076
  795.  
  796. :LABEL077
  797.     IF (!(VAR026="B")) GOTO LABEL078
  798.     INPUTSTR " What is your street mailing address( for the BBS) ",VAR052,11,30,MASK_ASCII(),2+4
  799.     GOTO LABEL076
  800.  
  801. :LABEL078
  802.     IF (!(VAR026="C")) GOTO LABEL079
  803.     INPUTSTR " What is your mailing city, state, zip (for the BBS) ",VAR053,11,30,MASK_ASCII(),2+4
  804.     GOTO LABEL076
  805.  
  806. :LABEL079
  807.     IF (!(VAR026="D")) GOTO LABEL080
  808.     INPUTSTR " What is the Sysops name ",VAR006,11,25,MASK_ASCII(),2+4+128
  809.     GOTO LABEL076
  810.  
  811. :LABEL080
  812.     IF (!(VAR026="E")) GOTO LABEL081
  813.     INPUTSTR " What is the BBS phone number ",VAR012,11,12,MASK_ASCII(),2+4+8+128
  814.     GOTO LABEL076
  815.  
  816. :LABEL081
  817.     IF (!(VAR026="F")) GOTO LABEL082
  818.     INPUTSTR " What is the registration number (leave 000000 if unreg) ",VAR005,11,8,MASK_NUM(),2+4+8
  819.     GOTO LABEL076
  820.  
  821. :LABEL082
  822.     IF (!(VAR026="G")) GOTO LABEL083
  823.     INPUTSTR " What are the values measured in (credits, units money) ",VAR021,11,12,MASK_ASCII(),2+4+8
  824.     GOTO LABEL076
  825.  
  826. :LABEL083
  827.     IF (!(VAR026="H")) GOTO LABEL084
  828.     INPUTSTR " How many levels (choices will you give the user ",VAR080,11,3,MASK_NUM(),2+4+8
  829.     GOTO LABEL076
  830.  
  831. :LABEL084
  832.     IF (!(VAR026="I")) GOTO LABEL085
  833.     INPUTSTR " What is the path where the invoices are stored ",VAR024,11,35,MASK_ASCII(),2+4+8
  834.     PRINTLN 
  835.     PRINTLN "   The directory will be created for you if it doesn't exist"
  836.     PRINTLN 
  837.     WAIT 
  838.     SHELL 1,VAR090,"md "+VAR024,""
  839.     WAIT 
  840.     GOTO LABEL076
  841.  
  842. :LABEL085
  843.     IF (!(VAR026="J")) GOTO LABEL086
  844.     INPUTSTR " Do you want to raise users security immediately ",VAR032,11,1,"",2+4+8+16384
  845.     GOTO LABEL076
  846.  
  847. :LABEL086
  848.     IF (!(VAR026="K")) GOTO LABEL087
  849.     INPUTSTR " What do you want to change users expired security ",VAR044,11,1,"",2+4+8+16384
  850.     GOTO LABEL076
  851.  
  852. :LABEL087
  853.     IF (!(VAR026="L")) GOTO LABEL088
  854.     INPUTSTR " Do you except American Express credit cards ",VAR045,11,1,"",2+4+8+16384
  855.     GOTO LABEL076
  856.  
  857. :LABEL088
  858.     IF (!(VAR026="M")) GOTO LABEL089
  859.     INPUTSTR " Do you except Discover credit cards ",VAR046,11,1,"",2+4+8+16384
  860.     GOTO LABEL076
  861.  
  862. :LABEL089
  863.     IF (!(VAR026="N")) GOTO LABEL090
  864.     INPUTSTR " Do you want to receive a message about users credit purchase ",VAR048,11,8,"",2+4+8+16384
  865.     GOTO LABEL076
  866.  
  867. :LABEL090
  868.     IF (!(VAR026="O")) GOTO LABEL091
  869.     INPUTSTR " @X07What 7f tax do you want (8.2 is 8.2%)(enter 0 if none) ",VAR068,11,8,MASK_ASCII(),2+4+0
  870.     GOTO LABEL076
  871.  
  872. :LABEL091
  873.     IF (!(VAR026="P")) GOTO LABEL092
  874.     INPUTSTR " What is the handling charge (cc surcharge)(enter 0 if none) ",VAR072,11,8,"$0123456789.",2+4+0
  875.     GOTO LABEL076
  876.  
  877. :LABEL092
  878.     GOTO LABEL076
  879.  
  880. :LABEL093
  881.     CLS 
  882.     LET VAR026=""
  883.     NEWLINES 1
  884.     PRINTLN " @X0E(@X0FA@X0E) @X07First Level (units, credits)...........@X0E[@X0B",VAR089(1),"@X0E@POS:50@]@X07"
  885.     PRINTLN " @X0E(@X0FB@X0E) @X07First Level Currency value.............@X0E[@X0B",VAR066(1),"@X0E@POS:52@]@X07"
  886.     PRINTLN " @X0E(@X0FC@X0E) @X07Sec level to raise security............@X0E[@X0B",VAR055(1),"@X0E@POS:50@]@X07"
  887.     PRINTLN " @X0E(@X0FD@X0E) @X07Sec level to set Expired access........@X0E[@X0B",VAR092(1),"@X0E@POS:50@]@X07"
  888.     PRINTLN " @X0E(@X0FE@X0E) @X07Sec level to set when 0 credits........@X0E[@X0B",VAR056(1),"@X0E@POS:50@]@X07     @X0ACREDITS.ppe v",VAR017,"@X07"
  889.     PRINTLN " @X0E(@X0FF@X0E) @X07Number of days before expiration.......@X0E[@X0B",VAR057(1),"@X0E@POS:50@]@X07"
  890.     PRINTLN " @X0E(@X0FG@X0E) @X07Second level (units or credits)........@X0E[@X0B",VAR089(2),"@POS:50@@X0E]@X07       Configuration"
  891.     PRINTLN " @X0E(@X0FH@X0E) @X07Second Level Currency Value............@X0E[@X0B",VAR066(2),"@X0E@POS:52@]@X07@X07"
  892.     PRINTLN " @X0E(@X0FI@X0E) @X07Sec level to raise security............@X0E[@X0B",VAR055(2),"@X0E@POS:50@]@X07"
  893.     PRINTLN " @X0E(@X0FJ@X0E) @X07Sec level to set Expired access........@X0E[@X0B",VAR092(2),"@X0E@POS:50@]@X07@X07          Editor"
  894.     PRINTLN " @X0E(@X0FK@X0E) @X07Sec level to set when 0 credits........@X0E[@X0B",VAR056(2),"@X0E@POS:50@]@X07"
  895.     PRINTLN " @X0E(@X0FL@X0E) @X07Number of days before expiration.......@X0E[@X0B",VAR057(2),"@X0E@POS:50@]@X07         Page 2 of 4"
  896.     PRINTLN " @X0E(@X0FM@X0E) @X07Third Level (units or credits).........@X0E[@X0B",VAR089(3),"@X0E@POS:50@]@X07"
  897.     PRINTLN " @X0E(@X0FN@X0E) @X07Third Level Currency Value............ @X0E[@X0B",VAR066(3),"@POS:52@@X0E]@X07"
  898.     PRINTLN " @X0E(@X0FO@X0E) @X07Sec level to raise security............@X0E[@X0B",VAR055(3),"@X0E@POS:50@]@X07"
  899.     PRINTLN " @X0E(@X0FP@X0E) @X07Sec level to set Expired access........@X0E[@X0B",VAR092(3),"@X0E@POS:50@]@X07@X07"
  900.     PRINTLN " @X0E(@X0FQ@X0E) @X07Sec level to set when 0 credits........@X0E[@X0B",VAR056(3),"@X0E@POS:50@]@X07"
  901.     PRINTLN " @X0E(@X0FR@X0E) @X07Number of days before expiration.......@X0E[@X0B",VAR057(3),"@X0E@POS:50@]@X07"
  902.     INPUTSTR "@X0F Please @X0Bchoose @X0Fa letter to @X0Echange [@X0Fe@X0EX@X0F)it,(@X0E!@X0F) to Save,@X0E +@X0F next screen@X0E]@X07",VAR026,14,1,MASK_ASCII(),4+2+8+64
  903.     IF (VAR026="!") GOTO LABEL150
  904.     IF (VAR026="") GOTO LABEL156
  905.     IF (VAR026="X") GOTO LABEL156
  906.     IF (VAR026="+") GOTO LABEL112
  907.     IF (VAR026="-") GOTO LABEL076
  908.     IF (!(VAR026="A")) GOTO LABEL094
  909.     INPUTSTR " What is the first level (value) of credits users may purchase ",VAR089(1),11,5,MASK_NUM(),2+4+8
  910.     GOTO LABEL093
  911.  
  912. :LABEL094
  913.     IF (!(VAR026="B")) GOTO LABEL095
  914.     INPUTSTR " What is cost of level one purchase ",VAR066(1),11,7,MASK_ASCII(),2+4+8
  915.     GOTO LABEL093
  916.  
  917. :LABEL095
  918.     IF (!(VAR026="C")) GOTO LABEL096
  919.     INPUTSTR " What security level to raise level on users ",VAR055(1),11,5,MASK_NUM(),2+4+8
  920.     GOTO LABEL093
  921.  
  922. :LABEL096
  923.     IF (!(VAR026="D")) GOTO LABEL097
  924.     INPUTSTR " What security level at which to set expired users (level 1) ",VAR092(1),11,5,MASK_NUM(),2+4+8
  925.     GOTO LABEL093
  926.  
  927. :LABEL097
  928.     IF (!(VAR026="E")) GOTO LABEL098
  929.     INPUTSTR "  Security level to set when user has 0 credits",VAR056(1),11,4,MASK_NUM(),2+4+8
  930.     GOTO LABEL093
  931.  
  932. :LABEL098
  933.     IF (!(VAR026="F")) GOTO LABEL099
  934.     INPUTSTR " Number of days before expiration of level one user ",VAR057(1),11,5,MASK_NUM(),2+4+8
  935.     GOTO LABEL093
  936.  
  937. :LABEL099
  938.     IF (!(VAR026="G")) GOTO LABEL100
  939.     INPUTSTR "What is the second level (value) of credits users may purchase ",VAR089(2),11,5,MASK_NUM(),2+4+8
  940.     GOTO LABEL093
  941.  
  942. :LABEL100
  943.     IF (!(VAR026="H")) GOTO LABEL101
  944.     INPUTSTR " What is the cost of level two purchase ",VAR066(2),14,7,MASK_ASCII(),2+4+8
  945.     GOTO LABEL093
  946.  
  947. :LABEL101
  948.     IF (!(VAR026="I")) GOTO LABEL102
  949.     INPUTSTR " What security level to raise level on users ",VAR055(2),11,5,MASK_NUM(),2+4+8
  950.     GOTO LABEL093
  951.  
  952. :LABEL102
  953.     IF (!(VAR026="J")) GOTO LABEL103
  954.     INPUTSTR " What security level to drop expired users on level three purchase ",VAR092(2),11,5,MASK_NUM(),2+4+8
  955.     GOTO LABEL093
  956.  
  957. :LABEL103
  958.     IF (!(VAR026="K")) GOTO LABEL104
  959.     INPUTSTR "  Security level to set when user has 0 credits",VAR056(2),11,4,MASK_NUM(),2+4+8
  960.     GOTO LABEL093
  961.  
  962. :LABEL104
  963.     IF (!(VAR026="L")) GOTO LABEL105
  964.     INPUTSTR " Number of days before expiration of level one user ",VAR057(2),11,5,MASK_NUM(),2+4+8
  965.     GOTO LABEL093
  966.  
  967. :LABEL105
  968.     IF (!(VAR026="M")) GOTO LABEL106
  969.     INPUTSTR " What is the third level (value) of credits users may purchase ",VAR089(3),11,5,MASK_NUM(),2+4+8
  970.     GOTO LABEL093
  971.  
  972. :LABEL106
  973.     IF (!(VAR026="N")) GOTO LABEL107
  974.     INPUTSTR " What is the cost of level three purchase ",VAR066(3),11,7,MASK_ASCII(),2+4+8
  975.     GOTO LABEL093
  976.  
  977. :LABEL107
  978.     IF (!(VAR026="O")) GOTO LABEL108
  979.     INPUTSTR " What security level to raise level on users ",VAR055(3),11,5,MASK_NUM(),2+4+8
  980.     GOTO LABEL093
  981.  
  982. :LABEL108
  983.     IF (!(VAR026="P")) GOTO LABEL109
  984.     INPUTSTR " What security level to drop expired users on level three purchase ",VAR092(3),11,5,MASK_NUM(),2+4+8
  985.     GOTO LABEL093
  986.  
  987. :LABEL109
  988.     IF (!(VAR026="Q")) GOTO LABEL110
  989.     INPUTSTR "  Security level to set when user has 0 credits",VAR056(3),11,4,MASK_NUM(),2+4+8
  990.     GOTO LABEL093
  991.  
  992. :LABEL110
  993.     IF (!(VAR026="R")) GOTO LABEL111
  994.     INPUTSTR " Number of days before expiration of level one user ",VAR057(3),11,5,MASK_NUM(),2+4+8
  995.     GOTO LABEL093
  996.  
  997. :LABEL111
  998.     GOTO LABEL093
  999.  
  1000. :LABEL112
  1001.     CLS 
  1002.     LET VAR026=""
  1003.     NEWLINES 1
  1004.     PRINTLN " @X0E(@X0FA@X0E) @X07Fourth Level (units, credits)..........@X0E[@X0B",VAR089(4),"@X0E@POS:50@]@X07"
  1005.     PRINTLN " @X0E(@X0FB@X0E) @X07Fourth Currency value..................@X0E[@X0B",VAR066(4),"@X0E@POS:52@]@X07@X07"
  1006.     PRINTLN " @X0E(@X0FC@X0E) @X07Sec level to raise security............@X0E[@X0B",VAR055(4),"@X0E@POS:50@]@X07"
  1007.     PRINTLN " @X0E(@X0FD@X0E) @X07Sec level to set Expired access........@X0E[@X0B",VAR092(4),"@X0E@POS:50@]@X07"
  1008.     PRINTLN " @X0E(@X0FE@X0E) @X07Sec level to set when 0 credits........@X0E[@X0B",VAR056(4),"@X0E@POS:50@]@X07@X0A    CREDITS.ppe v",VAR017,"@X07"
  1009.     PRINTLN " @X0E(@X0FF@X0E) @X07Number of days before expiration.......@X0E[@X0B",VAR057(4),"@X0E@POS:50@]@X07"
  1010.     PRINTLN " @X0E(@X0FG@X0E) @X07Fifth level (units or credits).........@X0E[@X0B",VAR089(5),"@POS:50@@X0E]@X07     Configuration"
  1011.     PRINTLN " @X0E(@X0FH@X0E) @X07Fifth Level Currency Value.............@X0E[@X0B",VAR066(5),"@X0E@POS:52@]@X07@X07"
  1012.     PRINTLN " @X0E(@X0FI@X0E) @X07Sec level to raise security............@X0E[@X0B",VAR055(5),"@X0E@POS:50@]@X07       Editor"
  1013.     PRINTLN " @X0E(@X0FJ@X0E) @X07Sec level to set Expired access........@X0E[@X0B",VAR092(5),"@X0E@POS:50@]@X07"
  1014.     PRINTLN " @X0E(@X0FK@X0E) @X07Sec level to set when 0 credits........@X0E[@X0B",VAR056(5),"@X0E@POS:50@]      @X07 Page 3 of 4@X07"
  1015.     PRINTLN " @X0E(@X0FL@X0E) @X07Number of days before expiration.......@X0E[@X0B",VAR057(5),"@X0E@POS:50@]@X07"
  1016.     PRINTLN " @X0E(@X0FM@X0E) @X07Sixth Level (units or credits).........@X0E[@X0B",VAR089(6),"@X0E@POS:50@]@X07"
  1017.     PRINTLN " @X0E(@X0FN@X0E) @X07Sixth Level Currency Value............ @X0E[@X0B",VAR066(6),"@POS:52@@X0E]@X07"
  1018.     PRINTLN " @X0E(@X0FO@X0E) @X07Sec level to raise security............@X0E[@X0B",VAR055(6),"@X0E@POS:50@]@X07"
  1019.     PRINTLN " @X0E(@X0FP@X0E) @X07Sec level to set Expired access........@X0E[@X0B",VAR092(6),"@X0E@POS:50@]@X07@X07"
  1020.     PRINTLN " @X0E(@X0FQ@X0E) @X07Sec level to set when 0 credits........@X0E[@X0B",VAR056(6),"@X0E@POS:50@]@X07"
  1021.     PRINTLN " @X0E(@X0FR@X0E) @X07Number of days before expiration.......@X0E[@X0B",VAR057(6),"@X0E@POS:50@]@X07"
  1022.     PRINTLN 
  1023.     INPUTSTR "@X0F @X0BChoose @X0Fan item to @X0Echange [@X0F(@X0E!@X0F) to Save,@X0EC/R@X0F to abort@X0E + @X0Fnext screen]@X07",VAR026,14,1,MASK_ASCII(),4+2+8+64
  1024.     IF (VAR026="!") GOTO LABEL150
  1025.     IF (VAR026="") GOTO LABEL156
  1026.     IF (VAR026="X") GOTO LABEL156
  1027.     IF (VAR026="+") GOTO LABEL131
  1028.     IF (VAR026="-") GOTO LABEL093
  1029.     IF (!(VAR026="A")) GOTO LABEL113
  1030.     INPUTSTR " What is the fourth level (value) of credits users may purchase ",VAR089(4),11,5,MASK_NUM(),2+4+8
  1031.     GOTO LABEL112
  1032.  
  1033. :LABEL113
  1034.     IF (!(VAR026="B")) GOTO LABEL114
  1035.     INPUTSTR " What is cost of level four purchase ",VAR066(4),11,7,MASK_ASCII(),2+4+8
  1036.     GOTO LABEL112
  1037.  
  1038. :LABEL114
  1039.     IF (!(VAR026="C")) GOTO LABEL115
  1040.     INPUTSTR " What security level to raise level on users ",VAR055(4),11,5,MASK_NUM(),2+4+8
  1041.     GOTO LABEL112
  1042.  
  1043. :LABEL115
  1044.     IF (!(VAR026="D")) GOTO LABEL116
  1045.     INPUTSTR " What security level at which to set expired users (level 4) ",VAR092(4),11,5,MASK_NUM(),2+4+8
  1046.     GOTO LABEL112
  1047.  
  1048. :LABEL116
  1049.     IF (!(VAR026="E")) GOTO LABEL117
  1050.     INPUTSTR "  Security level to set when user has 0 credits",VAR056(4),11,4,MASK_NUM(),2+4+8
  1051.     GOTO LABEL112
  1052.  
  1053. :LABEL117
  1054.     IF (!(VAR026="F")) GOTO LABEL118
  1055.     INPUTSTR " Number of days before expiration of level four users ",VAR057(4),11,5,MASK_NUM(),2+4+8
  1056.     GOTO LABEL112
  1057.  
  1058. :LABEL118
  1059.     IF (!(VAR026="G")) GOTO LABEL119
  1060.     INPUTSTR "What is the five level (value) of credits users may purchase ",VAR089(5),11,5,MASK_NUM(),2+4+8
  1061.     GOTO LABEL112
  1062.  
  1063. :LABEL119
  1064.     IF (!(VAR026="H")) GOTO LABEL120
  1065.     INPUTSTR " What is the cost of level five purchase ",VAR066(5),14,7,MASK_ASCII(),2+4+8
  1066.     GOTO LABEL112
  1067.  
  1068. :LABEL120
  1069.     IF (!(VAR026="I")) GOTO LABEL121
  1070.     INPUTSTR " What security level to raise level five users ",VAR055(5),11,5,MASK_NUM(),2+4+8
  1071.     GOTO LABEL112
  1072.  
  1073. :LABEL121
  1074.     IF (!(VAR026="J")) GOTO LABEL122
  1075.     INPUTSTR " What security level to drop expired users on five three purchase ",VAR092(5),11,5,MASK_NUM(),2+4+8
  1076.     GOTO LABEL112
  1077.  
  1078. :LABEL122
  1079.     IF (!(VAR026="K")) GOTO LABEL123
  1080.     INPUTSTR "  Security to set when level five users have 0 credits",VAR056(5),11,4,MASK_NUM(),2+4+8
  1081.     GOTO LABEL112
  1082.  
  1083. :LABEL123
  1084.     IF (!(VAR026="L")) GOTO LABEL124
  1085.     INPUTSTR " Number of days before expiration of level five user ",VAR057(5),11,5,MASK_NUM(),2+4+8
  1086.     GOTO LABEL112
  1087.  
  1088. :LABEL124
  1089.     IF (!(VAR026="M")) GOTO LABEL125
  1090.     INPUTSTR " What is the sixth level (value) of credits users may purchase ",VAR089(6),11,5,MASK_NUM(),2+4+8
  1091.     GOTO LABEL112
  1092.  
  1093. :LABEL125
  1094.     IF (!(VAR026="N")) GOTO LABEL126
  1095.     INPUTSTR " What is the cost of level six purchase ",VAR066(6),11,7,MASK_ASCII(),2+4+8
  1096.     GOTO LABEL112
  1097.  
  1098. :LABEL126
  1099.     IF (!(VAR026="O")) GOTO LABEL127
  1100.     INPUTSTR " What security level to raise level six users ",VAR055(6),11,5,MASK_NUM(),2+4+8
  1101.     GOTO LABEL112
  1102.  
  1103. :LABEL127
  1104.     IF (!(VAR026="P")) GOTO LABEL128
  1105.     INPUTSTR " What security level to drop expired users on level six purchase ",VAR092(6),11,5,MASK_NUM(),2+4+8
  1106.     GOTO LABEL112
  1107.  
  1108. :LABEL128
  1109.     IF (!(VAR026="Q")) GOTO LABEL129
  1110.     INPUTSTR "  Security level to set when user has 0 credits",VAR056(6),11,4,MASK_NUM(),2+4+8
  1111.     GOTO LABEL112
  1112.  
  1113. :LABEL129
  1114.     IF (!(VAR026="R")) GOTO LABEL130
  1115.     INPUTSTR " Number of days before expiration of level six user ",VAR057(6),11,5,MASK_NUM(),2+4+8
  1116.     GOTO LABEL112
  1117.  
  1118. :LABEL130
  1119.     GOTO LABEL112
  1120.  
  1121. :LABEL131
  1122.     CLS 
  1123.     LET VAR026=""
  1124.     NEWLINES 1
  1125.     PRINTLN " @X0E(@X0FA@X0E) @X07Seventh Level (units, credits).........@X0E[@X0B",VAR089(7),"@X0E@POS:50@]@X07"
  1126.     PRINTLN " @X0E(@X0FB@X0E) @X07Seventh Currency value.................@X0E[@X0B",VAR066(7),"@X0E@POS:52@]@X07@X07"
  1127.     PRINTLN " @X0E(@X0FC@X0E) @X07Sec level to raise security............@X0E[@X0B",VAR055(7),"@X0E@POS:50@]@X07"
  1128.     PRINTLN " @X0E(@X0FD@X0E) @X07Sec level to set Expired access........@X0E[@X0B",VAR092(7),"@X0E@POS:50@]@X07"
  1129.     PRINTLN " @X0E(@X0FE@X0E) @X07Sec level to set when 0 credits........@X0E[@X0B",VAR056(7),"@X0E@POS:50@]     @X0ACREDITS.ppe v",VAR017,"@X07"
  1130.     PRINTLN " @X0E(@X0FF@X0E) @X07Number of days before expiration.......@X0E[@X0B",VAR057(7),"@X0E@POS:50@]@X07"
  1131.     PRINTLN " @X0E(@X0FG@X0E) @X07Eighth level (units or credits)........@X0E[@X0B",VAR089(8),"@POS:50@@X0E]@X07       Configuration"
  1132.     PRINTLN " @X0E(@X0FH@X0E) @X07Eighth Level Currency Value............@X0E[@X0B",VAR066(8),"@X0E@POS:52@]@X07@X07"
  1133.     PRINTLN " @X0E(@X0FI@X0E) @X07Sec level to raise security............@X0E[@X0B",VAR055(8),"@X0E@POS:50@]@X07        Editor@X07"
  1134.     PRINTLN " @X0E(@X0FJ@X0E) @X07Sec level to set Expired access........@X0E[@X0B",VAR092(8),"@X0E@POS:50@]@X07@X07"
  1135.     PRINTLN " @X0E(@X0FK@X0E) @X07Sec level to set when 0 credits........@X0E[@X0B",VAR056(8),"@X0E@POS:50@]@X07        Page 4 of 4@X07"
  1136.     PRINTLN " @X0E(@X0FL@X0E) @X07Number of days before expiration.......@X0E[@X0B",VAR057(8),"@X0E@POS:50@]@X07"
  1137.     PRINTLN " @X0E(@X0FM@X0E) @X07Nineth Level (units or credits)........@X0E[@X0B",VAR089(9),"@X0E@POS:50@]@X07"
  1138.     PRINTLN " @X0E(@X0FN@X0E) @X07Nineth Level Currency Value........... @X0E[@X0B",VAR066(9),"@POS:52@@X0E]@X07"
  1139.     PRINTLN " @X0E(@X0FO@X0E) @X07Sec level to raise security............@X0E[@X0B",VAR055(9),"@X0E@POS:50@]@X07"
  1140.     PRINTLN " @X0E(@X0FP@X0E) @X07Sec level to set Expired access........@X0E[@X0B",VAR092(9),"@X0E@POS:50@]@X07@X07"
  1141.     PRINTLN " @X0E(@X0FQ@X0E) @X07Sec level to set when 0 credits........@X0E[@X0B",VAR056(9),"@X0E@POS:50@]@X07"
  1142.     PRINTLN " @X0E(@X0FR@X0E) @X07Number of days before expiration.......@X0E[@X0B",VAR057(9),"@X0E@POS:50@]@X07"
  1143.     PRINTLN 
  1144.     INPUTSTR "@X0F @X0BChoose @X0Fan item to @X0Echange [@X0F(@X0E!@X0F) to Save,@X0EC/R@X0F to abort@X0E + @X0Fnext screen]@X07",VAR026,14,1,MASK_ASCII(),4+2+8+64
  1145.     IF (VAR026="!") GOTO LABEL150
  1146.     IF (VAR026="") GOTO LABEL156
  1147.     IF (VAR026="X") GOTO LABEL156
  1148.     IF (VAR026="+") GOTO LABEL076
  1149.     IF (VAR026="-") GOTO LABEL112
  1150.     IF (!(VAR026="A")) GOTO LABEL132
  1151.     INPUTSTR " What is the seventh (value) of credits users may purchase ",VAR089(7),11,5,MASK_NUM(),2+4+8
  1152.     GOTO LABEL131
  1153.  
  1154. :LABEL132
  1155.     IF (!(VAR026="B")) GOTO LABEL133
  1156.     INPUTSTR " What is cost of level seventh ",VAR066(7),11,7,MASK_ASCII(),2+4+8
  1157.     GOTO LABEL131
  1158.  
  1159. :LABEL133
  1160.     IF (!(VAR026="C")) GOTO LABEL134
  1161.     INPUTSTR " What security level to raise level seven users ",VAR055(7),11,5,MASK_NUM(),2+4+8
  1162.     GOTO LABEL131
  1163.  
  1164. :LABEL134
  1165.     IF (!(VAR026="D")) GOTO LABEL135
  1166.     INPUTSTR " What security level at which to set expired users (level 7) ",VAR092(7),11,5,MASK_NUM(),2+4+8
  1167.     GOTO LABEL131
  1168.  
  1169. :LABEL135
  1170.     IF (!(VAR026="E")) GOTO LABEL136
  1171.     INPUTSTR "  Security level to set when user has 0 credits",VAR056(7),11,4,MASK_NUM(),2+4+8
  1172.     GOTO LABEL131
  1173.  
  1174. :LABEL136
  1175.     IF (!(VAR026="F")) GOTO LABEL137
  1176.     INPUTSTR " Number of days before expiration of level seven users ",VAR057(7),11,5,MASK_NUM(),2+4+8
  1177.     GOTO LABEL131
  1178.  
  1179. :LABEL137
  1180.     IF (!(VAR026="G")) GOTO LABEL138
  1181.     INPUTSTR "What is the eighth level (value) of credits users may purchase ",VAR089(8),11,5,MASK_NUM(),2+4+8
  1182.     GOTO LABEL131
  1183.  
  1184. :LABEL138
  1185.     IF (!(VAR026="H")) GOTO LABEL139
  1186.     INPUTSTR " What is the cost of level eight purchase ",VAR066(8),14,7,MASK_ASCII(),2+4+8
  1187.     GOTO LABEL131
  1188.  
  1189. :LABEL139
  1190.     IF (!(VAR026="I")) GOTO LABEL140
  1191.     INPUTSTR " What security level to raise level eight users ",VAR055(8),11,5,MASK_NUM(),2+4+8
  1192.     GOTO LABEL131
  1193.  
  1194. :LABEL140
  1195.     IF (!(VAR026="J")) GOTO LABEL141
  1196.     INPUTSTR " What security level to drop expired users level eight purchase ",VAR092(8),11,5,MASK_NUM(),2+4+8
  1197.     GOTO LABEL131
  1198.  
  1199. :LABEL141
  1200.     IF (!(VAR026="K")) GOTO LABEL142
  1201.     INPUTSTR "  Security to set when level eight users have 0 credits",VAR056(8),11,4,MASK_NUM(),2+4+8
  1202.     GOTO LABEL131
  1203.  
  1204. :LABEL142
  1205.     IF (!(VAR026="L")) GOTO LABEL143
  1206.     INPUTSTR " Number of days before expiration of level eight user ",VAR057(8),11,5,MASK_NUM(),2+4+8
  1207.     GOTO LABEL131
  1208.  
  1209. :LABEL143
  1210.     IF (!(VAR026="M")) GOTO LABEL144
  1211.     INPUTSTR " What is the nineth level (value) of credits users may purchase ",VAR089(9),11,5,MASK_NUM(),2+4+8
  1212.     GOTO LABEL131
  1213.  
  1214. :LABEL144
  1215.     IF (!(VAR026="N")) GOTO LABEL145
  1216.     INPUTSTR " What is the cost of level nine purchase ",VAR066(9),11,7,MASK_ASCII(),2+4+8
  1217.     GOTO LABEL131
  1218.  
  1219. :LABEL145
  1220.     IF (!(VAR026="O")) GOTO LABEL146
  1221.     INPUTSTR " What security level to raise level nine users ",VAR055(9),11,5,MASK_NUM(),2+4+8
  1222.     GOTO LABEL131
  1223.  
  1224. :LABEL146
  1225.     IF (!(VAR026="P")) GOTO LABEL147
  1226.     INPUTSTR " What security level to drop expired users on level nine purchase ",VAR092(9),11,5,MASK_NUM(),2+4+8
  1227.     GOTO LABEL131
  1228.  
  1229. :LABEL147
  1230.     IF (!(VAR026="Q")) GOTO LABEL148
  1231.     INPUTSTR "  Security level to set when user has 0 credits",VAR056(9),11,4,MASK_NUM(),2+4+8
  1232.     GOTO LABEL131
  1233.  
  1234. :LABEL148
  1235.     IF (!(VAR026="R")) GOTO LABEL149
  1236.     INPUTSTR " Number of days before expiration of level nine user ",VAR057(9),11,5,MASK_NUM(),2+4+8
  1237.     GOTO LABEL131
  1238.  
  1239. :LABEL149
  1240.     GOTO LABEL131
  1241.  
  1242. :LABEL150
  1243.     FCLOSE 2
  1244.     LET VAR047=VAR017
  1245.     FOPEN 2,PPEPATH()+"credits.cfg",O_RW,S_DN
  1246.     FPUTLN 2,VAR007
  1247.     FPUTLN 2,VAR052
  1248.     FPUTLN 2,VAR053
  1249.     FPUTLN 2,VAR006
  1250.     FPUTLN 2,VAR012
  1251.     FPUTLN 2,VAR005
  1252.     FPUTLN 2,VAR021
  1253.     FPUTLN 2,VAR024
  1254.     FPUTLN 2,VAR080
  1255.     FPUTLN 2,VAR032
  1256.     FPUTLN 2,VAR044
  1257.     FPUTLN 2,VAR045
  1258.     FPUTLN 2,VAR046
  1259.     FPUTLN 2,VAR048
  1260.     FPUTLN 2,VAR068
  1261.     FPUTLN 2,VAR072
  1262.     FPUTLN 2,VAR089(1)
  1263.     FPUTLN 2,VAR066(1)
  1264.     FPUTLN 2,VAR055(1)
  1265.     FPUTLN 2,VAR092(1)
  1266.     FPUTLN 2,VAR056(1)
  1267.     FPUTLN 2,VAR057(1)
  1268.     FPUTLN 2,VAR089(2)
  1269.     FPUTLN 2,VAR066(2)
  1270.     FPUTLN 2,VAR055(2)
  1271.     FPUTLN 2,VAR092(2)
  1272.     FPUTLN 2,VAR056(2)
  1273.     FPUTLN 2,VAR057(2)
  1274.     FPUTLN 2,VAR089(3)
  1275.     FPUTLN 2,VAR066(3)
  1276.     FPUTLN 2,VAR055(3)
  1277.     FPUTLN 2,VAR092(3)
  1278.     FPUTLN 2,VAR056(3)
  1279.     FPUTLN 2,VAR057(3)
  1280.     FPUTLN 2,VAR089(4)
  1281.     FPUTLN 2,VAR066(4)
  1282.     FPUTLN 2,VAR055(4)
  1283.     FPUTLN 2,VAR092(4)
  1284.     FPUTLN 2,VAR056(4)
  1285.     FPUTLN 2,VAR057(4)
  1286.     FPUTLN 2,VAR089(5)
  1287.     FPUTLN 2,VAR066(5)
  1288.     FPUTLN 2,VAR055(5)
  1289.     FPUTLN 2,VAR092(5)
  1290.     FPUTLN 2,VAR056(5)
  1291.     FPUTLN 2,VAR057(5)
  1292.     FPUTLN 2,VAR089(6)
  1293.     FPUTLN 2,VAR066(6)
  1294.     FPUTLN 2,VAR055(6)
  1295.     FPUTLN 2,VAR092(6)
  1296.     FPUTLN 2,VAR056(6)
  1297.     FPUTLN 2,VAR057(6)
  1298.     FPUTLN 2,VAR089(7)
  1299.     FPUTLN 2,VAR066(7)
  1300.     FPUTLN 2,VAR055(7)
  1301.     FPUTLN 2,VAR092(7)
  1302.     FPUTLN 2,VAR056(7)
  1303.     FPUTLN 2,VAR057(7)
  1304.     FPUTLN 2,VAR089(8)
  1305.     FPUTLN 2,VAR066(8)
  1306.     FPUTLN 2,VAR055(8)
  1307.     FPUTLN 2,VAR092(8)
  1308.     FPUTLN 2,VAR056(8)
  1309.     FPUTLN 2,VAR057(8)
  1310.     FPUTLN 2,VAR089(9)
  1311.     FPUTLN 2,VAR066(9)
  1312.     FPUTLN 2,VAR055(9)
  1313.     FPUTLN 2,VAR092(9)
  1314.     FPUTLN 2,VAR056(9)
  1315.     FPUTLN 2,VAR057(9)
  1316.     FPUTLN 2,VAR047
  1317.     GOTO LABEL156
  1318.  
  1319. :LABEL151
  1320.     FOPEN 2,PPEPATH()+"credits.cfg",O_RW,S_DN
  1321.     FGET 2,VAR007
  1322.     IF (VAR007="") LET VAR007=" Place your BBS name here"
  1323.     FGET 2,VAR052
  1324.     IF (VAR052="") LET VAR052="Place street address - leave blank if none"
  1325.     FGET 2,VAR053
  1326.     IF (VAR053="") LET VAR053=" Leave blank if none"
  1327.     FGET 2,VAR006
  1328.     IF (VAR006="") LET VAR006=" Sysop name here"
  1329.     FGET 2,VAR012
  1330.     IF (VAR012="") LET VAR012="555-1212"
  1331.     FGET 2,VAR005
  1332.     IF (VAR005="") LET VAR005="000000"
  1333.     FGET 2,VAR021
  1334.     IF (VAR021="") LET VAR021="Credits"
  1335.     FGET 2,VAR024
  1336.     IF (VAR024="") LET VAR024="Path to invoices"
  1337.     FGET 2,VAR080
  1338.     IF (VAR080="") LET VAR080="2"
  1339.     FGET 2,VAR032
  1340.     IF (VAR032="") LET VAR032="Y"
  1341.     FGET 2,VAR044
  1342.     IF (VAR044="") LET VAR044="N"
  1343.     FGET 2,VAR045
  1344.     IF (VAR045="") LET VAR045="N"
  1345.     FGET 2,VAR046
  1346.     IF (VAR046="") LET VAR046="N"
  1347.     FGET 2,VAR048
  1348.     IF (VAR048="") LET VAR048="N"
  1349.     FGET 2,VAR068
  1350.     IF (VAR068="") LET VAR068="0"
  1351.     FGET 2,VAR072
  1352.     IF (VAR072="") LET VAR072="0"
  1353.     FGET 2,VAR089(1)
  1354.     IF (VAR089(1)="") LET VAR089(1)=""
  1355.     FGET 2,VAR066(1)
  1356.     IF (VAR066(1)="") LET VAR066(1)=""
  1357.     FGET 2,VAR055(1)
  1358.     IF (VAR055(1)="") LET VAR055(1)="0"
  1359.     FGET 2,VAR092(1)
  1360.     IF (VAR092(1)="") LET VAR092(1)="0"
  1361.     FGET 2,VAR056(1)
  1362.     IF (VAR056(1)="") LET VAR056(1)="0"
  1363.     FGET 2,VAR057(1)
  1364.     IF (VAR057(1)="") LET VAR057(1)="0"
  1365.     FGET 2,VAR089(2)
  1366.     IF (VAR089(2)="") LET VAR089(2)=""
  1367.     FGET 2,VAR066(2)
  1368.     IF (VAR066(2)="") LET VAR066(2)=""
  1369.     FGET 2,VAR055(2)
  1370.     IF (VAR055(2)="") LET VAR055(2)="0"
  1371.     FGET 2,VAR092(2)
  1372.     IF (VAR092(2)="") LET VAR092(2)="0"
  1373.     FGET 2,VAR056(2)
  1374.     IF (VAR056(2)="") LET VAR056(2)="0"
  1375.     FGET 2,VAR057(2)
  1376.     IF (VAR057(2)="") LET VAR057(2)="0"
  1377.     FGET 2,VAR089(3)
  1378.     IF (VAR089(3)="") LET VAR089(3)=""
  1379.     FGET 2,VAR066(3)
  1380.     IF (VAR066(3)="") LET VAR066(3)=""
  1381.     FGET 2,VAR055(3)
  1382.     IF (VAR055(3)="") LET VAR055(3)="0"
  1383.     FGET 2,VAR092(3)
  1384.     IF (VAR092(3)="") LET VAR092(3)="0"
  1385.     FGET 2,VAR056(3)
  1386.     IF (VAR056(3)="") LET VAR056(3)="0"
  1387.     FGET 2,VAR057(3)
  1388.     IF (VAR057(3)="") LET VAR057(3)="0"
  1389.     FGET 2,VAR089(4)
  1390.     IF (VAR089(4)="") LET VAR089(4)=""
  1391.     FGET 2,VAR066(4)
  1392.     IF (VAR066(4)="") LET VAR066(4)=""
  1393.     FGET 2,VAR055(4)
  1394.     IF (VAR055(4)="") LET VAR055(4)="0"
  1395.     FGET 2,VAR092(4)
  1396.     IF (VAR092(4)="") LET VAR092(4)="0"
  1397.     FGET 2,VAR056(4)
  1398.     IF (VAR056(4)="") LET VAR056(4)="0"
  1399.     FGET 2,VAR057(4)
  1400.     IF (VAR057(4)="") LET VAR057(4)="0"
  1401.     FGET 2,VAR089(5)
  1402.     IF (VAR089(5)="") LET VAR089(5)=""
  1403.     FGET 2,VAR066(5)
  1404.     IF (VAR066(5)="") LET VAR066(5)=""
  1405.     FGET 2,VAR055(5)
  1406.     IF (VAR055(5)="") LET VAR055(5)="0"
  1407.     FGET 2,VAR092(5)
  1408.     IF (VAR092(5)="") LET VAR092(5)="0"
  1409.     FGET 2,VAR056(5)
  1410.     IF (VAR056(5)="") LET VAR056(5)="0"
  1411.     FGET 2,VAR057(5)
  1412.     IF (VAR057(5)="") LET VAR057(5)="0"
  1413.     FGET 2,VAR089(6)
  1414.     IF (VAR089(6)="") LET VAR089(6)=""
  1415.     FGET 2,VAR066(6)
  1416.     IF (VAR066(6)="") LET VAR066(6)=""
  1417.     FGET 2,VAR055(6)
  1418.     IF (VAR055(6)="") LET VAR055(6)="0"
  1419.     FGET 2,VAR092(6)
  1420.     IF (VAR092(6)="") LET VAR092(6)="0"
  1421.     FGET 2,VAR056(6)
  1422.     IF (VAR056(6)="") LET VAR056(6)="0"
  1423.     FGET 2,VAR057(6)
  1424.     IF (VAR057(6)="") LET VAR057(6)="0"
  1425.     FGET 2,VAR089(7)
  1426.     IF (VAR089(7)="") LET VAR089(7)=""
  1427.     FGET 2,VAR066(7)
  1428.     IF (VAR066(7)="") LET VAR066(7)=""
  1429.     FGET 2,VAR055(7)
  1430.     IF (VAR055(7)="") LET VAR055(7)="0"
  1431.     FGET 2,VAR092(7)
  1432.     IF (VAR092(7)="") LET VAR092(7)="0"
  1433.     FGET 2,VAR056(7)
  1434.     IF (VAR056(7)="") LET VAR056(7)="0"
  1435.     FGET 2,VAR057(7)
  1436.     IF (VAR057(7)="") LET VAR057(7)="0"
  1437.     FGET 2,VAR089(8)
  1438.     IF (VAR089(8)="") LET VAR089(8)=""
  1439.     FGET 2,VAR066(8)
  1440.     IF (VAR066(8)="") LET VAR066(8)=""
  1441.     FGET 2,VAR055(8)
  1442.     IF (VAR055(8)="") LET VAR055(8)="0"
  1443.     FGET 2,VAR092(8)
  1444.     IF (VAR092(8)="") LET VAR092(8)="0"
  1445.     FGET 2,VAR056(8)
  1446.     IF (VAR056(8)="") LET VAR056(8)="0"
  1447.     FGET 2,VAR057(8)
  1448.     IF (VAR057(8)="") LET VAR057(8)="0"
  1449.     FGET 2,VAR089(9)
  1450.     IF (VAR089(9)="") LET VAR089(9)=""
  1451.     FGET 2,VAR066(9)
  1452.     IF (VAR066(9)="") LET VAR066(9)=""
  1453.     FGET 2,VAR055(9)
  1454.     IF (VAR055(9)="") LET VAR055(9)="0"
  1455.     FGET 2,VAR092(9)
  1456.     IF (VAR092(9)="") LET VAR092(9)="0"
  1457.     FGET 2,VAR056(9)
  1458.     IF (VAR056(9)="") LET VAR056(9)="0"
  1459.     FGET 2,VAR057(9)
  1460.     IF (VAR057(9)="") LET VAR057(9)="0"
  1461.     FGET 2,VAR047
  1462.     FCLOSE 2
  1463.     RETURN 
  1464.  
  1465.  
  1466. :LABEL152
  1467.     LET VAR025="cr"+STRING(U_RECNUM(U_NAME()))+".inv"
  1468.     IF (!(!EXIST(VAR024+VAR025))) GOTO LABEL153
  1469.     PRINTLN 
  1470.     PRINTLN "   "+VAR019(60)
  1471.     GOTO LABEL018
  1472.  
  1473. :LABEL153
  1474.     LET VAR023=LEFT(READLINE(PCBDAT(),52),4)
  1475.     LET VAR023=RIGHT(VAR023,1)
  1476.     IF (!(VAR023>"2")) GOTO LABEL154
  1477.     LET VAR091=READLINE(PCBDAT(),158)
  1478.     LET VAR030=READLINE(PCBDAT(),159)
  1479.     PRINTLN 
  1480.     PRINTLN "                       "+VAR019(61)
  1481.     PRINTLN 
  1482.     SHELL 1,VAR090,"dsz portx "+VAR030+","+STRING(VAR091)," sz "+VAR024+VAR025
  1483.     GOTO LABEL155
  1484.  
  1485. :LABEL154
  1486.     SHELL 1,VAR090,"dsz port "+VAR023+" sz "+VAR024+VAR025,""
  1487.  
  1488. :LABEL155
  1489.     RETURN 
  1490.  
  1491.  
  1492. :LABEL156
  1493.     IF (!((VAR089(VAR081)="")|(VAR089(VAR081)="0"))) GOTO LABEL157
  1494.     FPUTLN 7,"N,None",""
  1495.     END 
  1496.  
  1497.  
  1498. :LABEL157
  1499.     FPUT 7,"Y",",",DATE(),",",TIME(),",",VAR089(VAR081),",",VAR066(VAR081)
  1500.     IF (VAR051="Y") FPUT 7,",","TEST"
  1501.     FPUTLN 7
  1502.     END 
  1503.  
  1504.  
  1505. ;------------------------------------------------------------------------------
  1506. ;Statements used:
  1507. ;
  1508. ;     3 END
  1509. ;     5 CLS
  1510. ;     5 WAIT
  1511. ;   278 GOTO
  1512. ;   209 LET
  1513. ;     4 PRINT
  1514. ;   189 PRINTLN
  1515. ;   253 IF
  1516. ;     4 DISPFILE
  1517. ;     5 FOPEN
  1518. ;    11 FAPPEND
  1519. ;     9 FCLOSE
  1520. ;    74 FGET
  1521. ;     3 FPUT
  1522. ;   127 FPUTLN
  1523. ;     2 GETUSER
  1524. ;     1 PUTUSER
  1525. ;     1 DELETE
  1526. ;     2 LOG
  1527. ;    91 INPUTSTR
  1528. ;    12 GOSUB
  1529. ;     6 RETURN
  1530. ;     1 DELAY
  1531. ;     9 NEWLINES
  1532. ;     1 GETTOKEN
  1533. ;     4 SHELL
  1534. ;     2 ANSIPOS
  1535. ;     1 MESSAGE
  1536. ;     2 ACCOUNT
  1537. ;
  1538. ;Functions used:
  1539. ;
  1540. ;     5 *
  1541. ;     3 /
  1542. ;   434 +
  1543. ;    19 -
  1544. ;   218 =
  1545. ;    18 <>
  1546. ;     8 <
  1547. ;     7 <=
  1548. ;     3 >
  1549. ;    14 >=
  1550. ;   130 !
  1551. ;    22 &
  1552. ;     7 |
  1553. ;    23 LEN
  1554. ;     1 LOWER
  1555. ;     4 MID
  1556. ;     9 LEFT
  1557. ;     6 RIGHT
  1558. ;    16 SPACE
  1559. ;     3 FERR
  1560. ;     7 CHR
  1561. ;     3 ASC
  1562. ;     3 INSTR
  1563. ;    12 DATE
  1564. ;     4 TIME
  1565. ;     9 U_NAME
  1566. ;     3 YEAR
  1567. ;     2 MONTH
  1568. ;    20 STRIPATX
  1569. ;     5 STRIP
  1570. ;    24 STRING
  1571. ;    47 MASK_NUM
  1572. ;    28 MASK_ASCII
  1573. ;     7 PCBDAT
  1574. ;    24 PPEPATH
  1575. ;     7 READLINE
  1576. ;     1 SYSOPSEC
  1577. ;     5 EXIST
  1578. ;     1 LANGEXT
  1579. ;     1 VALCC
  1580. ;     2 FMTCC
  1581. ;    13 CCTYPE
  1582. ;     5 PSA
  1583. ;     1 PPENAME
  1584. ;     4 U_RECNUM
  1585. ;     3 ACCOUNT
  1586. ;
  1587. ;------------------------------------------------------------------------------
  1588. ;Thank you for using PPLD              T4F - We Create Your Needs Of Tommorow !
  1589. ;------------------------------------------------------------------------------
  1590.